extern integer izamax_(integer *n, doublecomplex *zx, integer *incx);
/*:ref: dcabs1_ 7 1 9 */
